• a5_add_tables_sets Function
• a5_addin_version_number Function
• a5_backup_db_dialog Function
• A5_BACKUP_LOGFILE_EXIST Function
• A5_BACKUP_SETTINGS_EXIST Function
• a5_create_new_database Function
• a5_database_startup Function
• A5_DATABASECOMPACT Function
• a5_databaseerrorsignature Function
• a5_drop_from_database Function
• a5_edit_recent_db_list Function
• a5_get_ado_databasetype Function
• a5_get_raw_recent_files Function
• a5_getdefaultshadowdbfolder Function
• a5_gettables_ado Function
• A5_IS_DATABASE_OPEN Function
• a5_more_database_list Function
• a5_new_database_genie Function
• a5_recent_databases Function
• a5_send_db_dialog Function
• a5_start_in_debug_mode Function
• A5_TABLE_ENUM_ACTUAL Function
• a5_welcome_dialog Function
• A5InstanceCount Function
• CAN_APPLICATION_EXIT Function
• CAN_DATABASE_EXIT Function
• CREATE_SHADOW Function
• CREATE_SHADOW2 Function
• EXPORT_TO_QUICKBOOKS Function
• FILE_ADD_TO_DB Function
• file_add_to_db_low Function
• FILE_DROP_FROM_DB Function
• file_drop_from_db_low Function
• IMPORT_FROM_QUICKBOOKS Function
• LIST_FILES_IN_DATABASE Function
• LOAD_ADB_DEF Function
• MOST_RECENTLY_USED_DATABASE_ENUM Function
• ODBC_IMPORT_TABLE Function
• ON_APPLICATION_EXIT Function
• ON_DATABASE_EXIT Function
• ON_DATABASE_INIT Function
• ONESTEP_BACKUP Function
• REFRESH_SHADOW Function
• RESTORE_DATABASE Function
• SAVE_ADB_DEF Function
• SYSTEM_EVENT_DATA_GET Function
• SYSTEM_EVENT_DROP Function

SYSTEM_EVENT_DATA_GET Function

Syntax

Arguments

Data

A dot variable that receives the contents of the database_exit variable.

Description

The SYSTEM_EVENT_DATA_GET() returns a pointer to system events that have been registered by the CAN_DATABASE_EXIT()and ON_DATABASE_EXIT()functions.

Example

The following script registers events.

code = 
Ui_msg_box("Notice", "The database is about to close - First warning")
%code%
on_database_exit(code)
Code2 = 
Ui_msg_box("Notice", "The database is now closing - Second warning")
%code%
on_database_exit(code2)

This code returns the registered events.

dim ptr as P
ptr = system_event_data_get()
? ptr.database_exit
= +1.
+2.
? ptr.database_exit.1
= code = Ui_msg_box("Notice", "The database is about to close - First warning")
level = "Application"
? ptr.database_exit.2
= code = Ui_msg_box("Notice", "The database is now closing - Second warning")
level = "Application"

This code drops the second database_exit event.

system_event_drop("database_exit", "2")

See Also

• Database Functions
• CAN_DATABASE_EXIT()
• ON_DATABASE_EXIT()
• SYSTEM_EVENT_DROP()